﻿''' <summary>
''' Feuer wollt ihr etwas mehr sehen?
''' </summary>
''' <remarks></remarks>
Public Class LandschaftsTexturFeuer
    Inherits ObjektLandschaftsTextur
    Public Shared FeuerSicht As Integer = 5
    Shared Frames_6 As Integer = 0
    Public Shared Property Frames_5() As Integer
        Get
            Return Frames_6
        End Get
        Set(ByVal value As Integer)
            Frames_6 += 1
            If Frames_6 > 5 Then
                Frames_6 = 0
            End If
        End Set
    End Property


    Public Sub New()
        ID = "FEUER"
        Landschaftsname = "Feuer"
        Deckung = -1
        Tarnung = False
        KP = -1
        Frame = True
        Ausrichtungslandschaften = New String() {}
        Gross = True


        If DataSettings.draw3D Then
            Ini3D()
        End If
        TexturenLaden(New String() {"Feuer"})
        Normal = 0


    End Sub
    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal TerrainUntergrundID As Integer, ByVal TerrainUntergrundBildID As Integer, ByVal TerrainUntergrundID2 As Integer, ByVal TerrainUntergrundBildID2 As Integer, Optional ByVal FixedLocation As Boolean = False, Optional ByVal Top As Boolean = False) As Boolean
        Return DrawTerrainUndUntergrund(Alpha, Fog, BildID, X, Y, Frames_6, 6, TerrainUntergrundID, TerrainUntergrundBildID, TerrainUntergrundID2, TerrainUntergrundBildID2, FixedLocation, Top)
    End Function

    Public Overrides Sub Ini3D()

    End Sub

    Public Overloads Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)

    End Sub

    Public Overrides Sub Tick()

    End Sub

    Public Overrides Function GetTerrainUntergrund() As String()
        Return New String() {"EBENE", "EBENE+SCHROTT", "SCHNEE+SCHROTT", "WUESTE+SCHROTT", "WUESTE", "SCHNEE", "OEDLAND"}
    End Function
End Class